home *** CD-ROM | disk | FTP | other *** search
/ Newspaper 6 / Newspaper_06_2000_Exon_Side_D.d64 / t.d.d. depacker < prev    next >
Text File  |  2023-02-26  |  1KB  |  71 lines
  1. ;---------------------------------------
  2. ; Depacker for "Demo data packer v1.0" ;
  3. ; done by Volcano/Exon+Schn            ;
  4. ;--------------------------------------;
  5. ; Length of depacker: $68 bytes!       ;
  6. ;--------------------------------------;
  7. vec1     = $fa ;+$fb
  8. vec2     = $fc ;+$fd
  9. ;---------------------------------------
  10.          *= $0900
  11.  
  12. init     stx vec1
  13.          sty vec1+1
  14. end      rts
  15. depack   stx vec2
  16.          sty vec2+1
  17. ;---------------------------------------
  18. continue ldy #$00
  19.          lda (vec1),y
  20.          bmi end
  21.          bne dep
  22. ;---------------------------------------
  23.          inc vec1
  24.          bne *+4
  25.          inc vec1+1
  26.          lda (vec1),y
  27.          sta howmuch1+1
  28.          inc vec1
  29.          bne *+4
  30.          inc vec1+1
  31. loop1    lda (vec1),y
  32.          sta (vec2),y
  33.          iny
  34. howmuch1 cpy #$00
  35.          bne loop1
  36.          tya
  37.          beq go1
  38.          clc
  39.          adc vec1
  40.          sta vec1
  41.          bcc *+4
  42. go1      inc vec1+1
  43.          jmp go2
  44. ;-----------
  45. dep      inc vec1
  46.          bne *+4
  47.          inc vec1+1
  48.          lda (vec1),y
  49.          sta howmuch2+1
  50.          inc vec1
  51.          bne *+4
  52.          inc vec1+1
  53.          lda (vec1),y
  54.          inc vec1
  55.          bne *+4
  56.          inc vec1+1
  57. loop2    sta (vec2),y
  58.          iny
  59. howmuch2 cpy #$00
  60.          bne loop2
  61. go2      tya
  62.          beq go3
  63.          clc
  64.          adc vec2
  65.          sta vec2
  66.          bcc continue
  67. go3      inc vec2+1
  68.          jmp continue
  69. ;---------------------------------------
  70.  
  71.